home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / AmokEd / macros / Oberon.aedrc < prev    next >
Encoding:
Text File  |  1996-09-27  |  8.9 KB  |  292 lines

  1. #
  2. #AmokEd 1.30 resource file for Oberon
  3. #
  4. #:Author. Volker Rudolph
  5.  
  6. #Number of chars for tab
  7. set tabs 2
  8.  
  9. margin           70
  10. tabstop       $tabs
  11. pageset          90
  12.  
  13. topedge          11
  14. leftedge          3
  15. width           625
  16. height          168
  17.  
  18. map sc-nk1     (ping 1)
  19. map sc-nk2     (ping 2)
  20. map sc-nk3     (ping 3)
  21.  
  22. map  c-nk1     (pong 1)
  23. map  c-nk2     (pong 2)
  24. map  c-nk3     (pong 3)
  25.  
  26. map    f1      (oberror next)
  27. map  s-f1      (oberror prev)
  28. map    f2      (oberror read)
  29. map  s-f2      (oberror current)
  30. map    f3      (escimm (newfile `TXT\)
  31. map    f4      (newwindow f3)
  32. map    f5      (escimm (chfilename `))
  33. map  s-f5      (newwindow f5)
  34. map    f6      (f10 quit)
  35. map  s-f6      (bsave t:AmokEd.print execute (run type t:AmokEd.print to prt:))
  36. map    f7      (f10 execute (run OMake -md \$OBProject pri -1))
  37. map  s-f7      (f10 execute (run OMake -md \$OBProject.mod pri -1))
  38. map    f8       quit
  39. map    f9      (f10 iconify)
  40. map    f10     (if m saveold)
  41. map  A-help    (escimm (set name ) insline first (\$name) first pushmark block block ref bdelete popmark)
  42.  
  43. #CSI
  44. map  a-esc     ((›))
  45. #blue
  46. map  a-f1      (a-esc (30m))
  47. #white
  48. map  a-f2      (a-esc (31m))
  49. #black
  50. map  a-f3      (a-esc (32m))
  51. #red
  52. map  a-f4      (a-esc (33m))
  53. #reverse
  54. map  a-f5      (a-esc (41;30m))
  55. #normal
  56. map  a-f6      (a-esc (0m))
  57. #cls
  58. map  a-f7      (a-esc (0;0;H) a-esc (J))
  59. #del CSI
  60. map a-f8       (find () while c<>109 del del)
  61.  
  62. map  c-i       (ignorecase toggle)
  63. map  c-f       (escimm (find `))
  64. map  c-n        next
  65. map  c-p        prev
  66. map  c-r       (escimm (multireplace ))
  67. map sc-f       (escimm (findr ))
  68. map sc-n        nextr
  69. map sc-p        prevr
  70.  
  71. map  c-b       (toggle 9 if 9 unblock block)
  72. map  c-u       (resettoggle 9 unblock)
  73. map  c-e       (resettoggle 9 bdelete)
  74. map  c-m       (resettoggle 9 bmove)
  75. map  c-d        bcopy
  76. map sc-s       (goto block bsave t:AmokEd.block execute (sort T:AmokEd.block T:AmokEd.sort) bdelete insfile T:AmokEd.sort execute (delete T:AmokEd.sort T:AmokEd.block) resettoggle 9)
  77.  
  78. map    tab     (ifelse cb (goto block while cb (first tabindent (( )) down) goto block) (repeat tr (( ))))
  79. map  s-tab     (ifelse cb (goto block while cb (first tabunident down) goto block) (repeat tl left) )
  80. map  c-l       (escimm (insfile `))
  81. map  c-w       (escimm (bsave `))
  82.  
  83. map  s-bs      (left while !ca (del left) while ca (del left) right)
  84. map  s-del     (while !ca (ifelse r abort del) while ca del)
  85. map  c-bs      (while !l bs)
  86. map  c-del      remeol
  87.  
  88. map  c-o       (insertmode toggle)
  89. map  a-del     (insert ` ' left)
  90. map  c-j       (last join del)
  91. map  c-s       (-return up last)
  92. map  c-y        deline
  93. map sc-y        undeline
  94. map  c-x       (insline down first if !r (while !ca (up ( ) down)) up)
  95.  
  96. map sc-u        undo
  97. map  c-g       (escimm (goto ))
  98. map sc-w       (wordwrap toggle)
  99. map sc-r        reformat
  100. map sc-m       (escimm (margin ))
  101. map  c-help     ref
  102. map  c-\\      (escimm (execute `))
  103.  
  104. map    c-tab   (first while c=32 right c-bs up while c=32 (ifelse r (down abort) (down ( ) up)) down)
  105. map    return  (ifelse x=1 (insline down) (ifelse r (downadd first insline c-tab) (split down c-tab) ))
  106. map  s-return  (firstnb down)
  107. map    enter    return
  108. map  s-up       pageup
  109. map  s-down     pagedown
  110. map  s-left     wleft
  111. map  s-right    wright
  112. map  c-up       top
  113. map  c-down     bottom
  114. map  c-left     first
  115. map  c-right    last
  116. map  a-help    (pushmark unblock block block bsource popmark)
  117.  
  118. menuoff
  119.  
  120. menuadd  Project  (Load         F3 )   (arpload)
  121. menuadd  Project  (Load window  F4 )   (newwindow arpload)
  122. menuadd  Project  (-------------)      (null)
  123. menuadd  Project  (New Name     F5 )   (f5)
  124. menuadd  Project  (New Window s-F5 )   (s-f5)
  125. menuadd  Project  (------------- )     (null)
  126. menuadd  Project  (Print      s-F6 )   (s-f6)
  127. menuadd  Project  (Save Quit    F6 )   (f6)
  128. menuadd  Project  (Save As         )   (arpsave)
  129. menuadd  Project  (Quit         F8 )   (f8)
  130. menuadd  Project  (Iconify      F9 )   (f9)
  131. menuadd  Project  (Save         F10)   (f10)
  132.  
  133. menuadd  Search   (Ignore case c-i)    (c-i)
  134. menuadd  Search   (------------)       (null)
  135. menuadd  Search   (Find        c-f)    (c-f)
  136. menuadd  Search   (Find Next   c-n)    (c-n)
  137. menuadd  Search   (Find Prev.  c-p)    (c-p)
  138. menuadd  Search   (------------ )      (null)
  139. menuadd  Search   (Replace     c-r)    (c-r)
  140.  
  141. menuadd  Block    (Mark       c-b)      (c-b)
  142. menuadd  Block    (Unmark     c-u)      (c-u)
  143. menuadd  Block    (-----------)         (null)
  144. menuadd  Block    (Move       c-m)      (c-m)
  145. menuadd  Block    (Erase      c-e)      (c-e)
  146. menuadd  Block    (Duplicate  c-d)      (c-d)
  147. menuadd  Block    (Indent     tab)      (tab)
  148. menuadd  Block    (Backdent s-tab)      (s-tab)
  149. menuadd  Block    (----------- )        (null)
  150. menuadd  Block    (Load       c-l)      (arpinsfile)
  151. menuadd  Block    (Write      c-w)      (c-w)
  152. menuadd  Block    (Sort      sc-s)      (sc-s)
  153.  
  154. menuadd  Line     (Split   c-s)    (c-s)
  155. menuadd  Line     (Join    c-j)    (c-j)
  156. menuadd  Line     (Delete  c-y)    (c-y)
  157. menuadd  Line     (UnDel  sc-y)    (sc-y)
  158. menuadd  Line     (Insert  c-x)    (c-x)
  159. menuadd  Line     (Undo   sc-u)    (sc-u)
  160. menuadd  Line     (----------)     (null)
  161. menuadd  Line     (Top    c-cu)    (c-up)
  162. menuadd  Line     (End    c-cd)    (c-down)
  163.  
  164. menuadd  Misc     (Overwrite mode c-o)  (c-o)
  165. menuadd  Misc     (Goto           c-g)  (c-g)
  166. menuadd  Misc     (--------------)      (null)
  167. menuadd  Misc     (Wordwrap      sc-w)  (sc-w)
  168. menuadd  Misc     (Reformat      sc-r)  (sc-r)
  169. menuadd  Misc     (Margin        sc-m)  (sc-m)
  170. menuadd  Misc     (-------------- )     (null)
  171. menuadd  Misc     (Set mark 1   sc-nk1) (sc-nk1)
  172. menuadd  Misc     (Set mark 2   sc-nk2) (sc-nk2)
  173. menuadd  Misc     (Set mark 3   sc-nk3) (sc-nk3)
  174. menuadd  Misc     (Goto mark 1   c-nk1) (c-nk1)
  175. menuadd  Misc     (Goto mark 2   c-nk2) (c-nk2)
  176. menuadd  Misc     (Goto mark 3   c-nk3) (c-nk3)
  177. menuadd  Misc     (--------------  )    (null)
  178. menuadd  Misc     (Reference    c-help) (c-help)
  179. menuadd  Misc     (Cli command    c-\\) (c-\\)
  180.  
  181. menuadd  Colors   (Blue    a-f1) (a-f1)
  182. menuadd  Colors   (White   a-f2) (a-f2)
  183. menuadd  Colors   (Black   a-f3) (a-f3)
  184. menuadd  Colors   (Red     a-f4) (a-f4)
  185. menuadd  Colors   (Reverse a-f5) (a-f5)
  186. menuadd  Colors   (Normal  a-f6) (a-f6)
  187. menuadd  Colors   (Cls     a-f7) (a-f7)
  188.  
  189. menuadd  Errors   (Next error       F1) (f1)
  190. menuadd  Errors   (Previous error s-F1) (s-f1)
  191. menuadd  Errors   (Read errorfile   F2) (f2)
  192. menuadd  Errors   (Current error  s-F2) (s-f2)
  193. menuon
  194.  
  195. # Oberon special
  196.  
  197. errormode oberon
  198.  
  199. addpath OBERON:
  200.  
  201. map   -i ((i))
  202. map  s-i ((I))
  203. map   -a ((a))
  204. map  s-a ((A))
  205. map   -e ((e))
  206. map  s-e ((E))
  207.  
  208. map  a-k (firstnb `(* ' last right `*)' first down)
  209. map sa-k (up last findstr `(*' next del del del last bs bs bs firstnb down)
  210.  
  211. map  a-left  (findstr (PROCEDURE ) prev)
  212. map  a-right (findstr (PROCEDURE ) next)
  213.  
  214. map  a-9 ((()) left)
  215. map  a-0 ((();) left left)
  216.  
  217. map  a-a ((AND ))
  218. map  A-a ((ARRAY  OF ) wleft left)
  219. map sA-a ((e.ADDRESS;))
  220.  
  221. map  a-b ((BEGIN) -return)
  222. map  A-b ((BOOLEAN;))
  223.  
  224. map  a-c ((CASE  OF) -return (END; (* CASE *)) up last wleft left)
  225. map sa-c ((CONST) -return)
  226. map  A-c ((CHAR;))
  227. map sA-c ((ARRAY OF CHAR;))
  228.  
  229. map  a-d ((DIV ))
  230.  
  231. map  a-e ((ELSE))
  232. map sa-e ((EXIT;) left)
  233.  
  234. map  A-f ((FALSE))
  235.  
  236. map  a-h ((HALT(0);))
  237.  
  238. map  a-i ((IF  THEN) -return -return up up firstnb down down (END; (* IF *)) up up last wleft left)
  239. map sa-i ((IF  THEN END;) wleft wleft left)
  240.  
  241. map  A-i ((INTEGER;))
  242.  
  243. map  a-l ((LOOP) -return -return up up firstnb down down (END; (* LOOP *)) wleft up (  ))
  244. map  A-l ((LONGINT;))
  245.  
  246. map  a-m (escimm (set name ) (MODULE \$name;) return return (END \$name.) up first)
  247. map sa-m a-m
  248.  
  249. map  a-n ((NOT ))
  250. map  A-n ((NIL ))
  251.  
  252. map  a-o ((OF ))
  253. map sa-o ((OR ))
  254.  
  255. map  a-p (escimm (set name ) (PROCEDURE \$name();) -return (VAR) -return (BEGIN) -return -return up up firstnb down down (END \$name;) up up up up last left left)
  256. map sa-p ((IMPORT ;) left)
  257.  
  258. map  A-p ((POINTER TO ;) left)
  259.  
  260. map  a-r ((REPEAT) -return -return up up firstnb down down (UNTIL ;)left)
  261. map sa-r ((RETURN ;) left)
  262. map  A-r ((RECORD) -return -return up up last wleft down down (END;) firstnb up (  ))
  263. map sA-r ((REAL;))
  264.  
  265. map  a-t ((TYPE) -return)
  266. map  A-t ((TRUE))
  267.  
  268. map  a-v ((VAR) -return)
  269. map sa-v ((VAR ))
  270.  
  271. map  a-w ((WHILE  DO) -return -return up up firstnb down down (END; (* WHILE *)) up up last wleft left)
  272. map sa-w ((WITH  DO) -return -return up up firstnb down down (END; (* WITH *)) up up last wleft left)
  273.  
  274. map  A-s (((* ---------------------------------------------------------------- *)) first)
  275.  
  276. map   help (( := ;) left)
  277. map s-help (( := ))
  278.  
  279. #find bracket
  280. map   a-8 (ping 9 ifelse c=40 sca-2 (if c=41 sca-4))
  281.  
  282. #search right for open or close bracket
  283. map sca-1 (right if r (down first) while ca (right if r (down first)) ifelse c=41 () (ifelse c=40 () sca-1))
  284. #search close
  285. map sca-2 (sca-1 while c<>41 (if c=40 (sca-2 sca-1)))
  286.  
  287. #search left for open or close bracket
  288. map sca-3 (if !l left if l (up last) while ca (if l (up last) left) ifelse c=41 () (ifelse c=40 () sca-3))
  289. #search open
  290. map sca-4 (sca-3 while c<>40 (if c=41 (sca-4 sca-3)))
  291.  
  292.